COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	BEGIN
C00003 ENDMK
C⊗;
BEGIN

INTEGER PROCEDURE NEWARY;
    BEGIN
    REAL ARRAY A[1:3,1:3];
    INTEGER AA;
    AA←MEMORY[LOCATION(A)];
    MEMORY[LOCATION(A)]←0;
    RETURN(AA)
    END;

INTEGER PROCEDURE FOO(REAL ARRAY ROTN);
    START_CODE
    MOVE 1,ROTN;
    END;

RECORD_CLASS ROTN(REAL ARRAY ROT);
RECORD_POINTER(ROTN) PTR;

REAL ARRAY XXX[1:3,1:3];
XXX[1,1]←16;

PTR←NEW_RECORD(ROTN);
MEMORY[LOCATION(ROTN:ROT[PTR])]←NEWARY;

ROTN:ROT[PTR][1,1]←32.;
PRINT(CVOS(FOO(ROTN:ROT[PTR])));
PRINT(MEMORY[FOO(ROTN:ROT[PTR]),REAL])
PRINT('15&'12,CVOS(FOO(XXX)));
PRINT(MEMORY[FOO(XXX),REAL])
END